home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_FLC.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1.5 KB  |  44 lines
  1. Unit spx_flc;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_tim,spx_vga,spx_dos,spx_fnc,spx_lib;
  9.  
  10. const
  11.   FLC_NOERROR       = 0;
  12.   FLC_FINISHLOOP    = 1;
  13.   FLC_ERRORNOTFOUND = -1;
  14.   FLC_ERRORNOTFLC   = -2;
  15.   FLC_ERRORREAD     = -3;
  16.   FLC_ERRORBADFRAME = -4;
  17.   FLC_ERRORTOOBIG   = -5;
  18.  
  19. type
  20.   FLC_TYPE  = record
  21.                 flcfile     : file;       { file handle }
  22.                 isok,                     { file running ok }
  23.                 isflc,                    { is .fli or (.flc/.cel) }
  24.                 iscel       : boolean;    { is .flc or .cel }
  25.                 speed,                    { speed in ms or jiffys }
  26.                 smark,                    { last frame tick count }
  27.                 flcf1,flcf2 : longint;    { 1st/2nd frame file offsets }
  28.                 frames,cfrm : word;       { num frames, current frame }
  29.                 x,y,w,h     : word;       { flic x,y, width /height }
  30.                 workmem     : pointer;    { work memory pointer }
  31.               end;
  32.  
  33. var
  34.   flcdac : RGBlist;                       { current flic palette }
  35.  
  36. function flc_open(name:string;var flc:FLC_TYPE):integer;
  37. function flc_frame(var flc:FLC_TYPE):integer;
  38. procedure flc_close(var flc:FLC_TYPE);
  39. function flc_play(name:string):integer; { just plays anim once, no abort }
  40.  
  41. function flc_openLib(lib:pSpxLib;name:string;var flc:FLC_TYPE):integer;
  42. function flc_playLib(lib:pSpxLib;name:string):integer;
  43.  
  44.